<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<!-- #include file="inc/conn.inc" -->
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<link href="../images/css.css" rel="stylesheet" type="text/css">
<title>后台菜单</title>
<style type=text/css>
body  { background:#799AE1; margin:0px; font:9pt; }
table  { border:0px; }
td  { font:normal 12px ??ì?; }
img  { vertical-align:bottom; border:0px; }
a  { font:normal 12px ??ì?; color:#000000; text-decoration:none; }
a:hover  { color:#428EFF;text-decoration:underline; }
.sec_menu  { border-left:1px solid white; border-right:1px solid white; border-bottom:1px solid white; overflow:hidden; background:#D6DFF7; }
.menu_title  { }
.menu_title span  { position:relative; top:2px; left:8px; color:#215DC6; font-weight:bold; }
.menu_title2  { }
.menu_title2 span  { position:relative; top:2px; left:8px; color:#428EFF; font-weight:bold; }
</style>
<SCRIPT language=javascript1.2>
function showsubmenu(sid)
{
whichEl = eval("submenu" + sid);
if (whichEl.style.display == "none")
{
eval("submenu" + sid + ".style.display=\"\";");
}
else
{
eval("submenu" + sid + ".style.display=\"none\";");
}
}
</SCRIPT>

<BODY leftmargin="0" topmargin="0" marginheight="0" marginwidth="0">
<tr>
  <td valign=top> 
    <table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background=images/title_bg_quit.gif  > 
          <span><a href="exit.asp?loginout=zy" target=_top><b><span>返回首頁</span></b></a></span></td>
  </tr>
</table>
&nbsp;

<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_1.gif" id=menuTitle1 onClick="showsubmenu(0)"> 
          <b><span>首选服务</span></b></td>
  </tr>
  <tr>
    <td style="display:" id='submenu0'>
<div class=sec_menu style="width:158">
            <table cellpadding=0 cellspacing=0 align=center width=135>
              <tr> 
                <td height=20><a href="exit.asp?loginout=admin" target="_top">注销登录</a></td>
              </tr> 
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=hygl.asp target='right'>管理员管理</a></td></tr>"
				end if
			  %>            
             
            </table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>

<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_2.gif" id=menuTitle1 onClick="showsubmenu(1)"> 
          <b><span>网站栏目</span></b></td>
  </tr>
  <tr>
    <td style="display:" id='submenu1'>
<div class=sec_menu style="width:158">
<%
strSQL = "select * from ProName order by id asc"

Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQL, dbconnection, adOpenDynamic, 3
Dim TextArray1(31)


for i = 0 to ubound(TextArray1) 
	if not rs.eof then
		TextArray1(i)=rs("Names")
		rs.movenext
	else
		TextArray1(i)="&nbsp;"
	end if
next
set rs = nothing
%>
            <table cellpadding=0 cellspacing=0 align=center width=135>        
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=OnlineGame.asp target=right>"
				   response.Write(TextArray1(1))
				   response.Write "</a></td></tr>"
				end if
			  %>       
              <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=WebNews.asp target=right>"
				   response.Write(TextArray1(2))
				   response.Write "</a></td></tr>"
				end if
			  %> 
			   <tr> 
                <td height=20><a href=NewDynamic.asp target=right><%=TextArray1(0)%></a></td>
              </tr>    
			  <tr> 
                <td height=20><a href=GameWiki.asp target=right><%=TextArray1(3)%></a></td>
              </tr>
			   <tr> 
                <td height=20><a href=GameClub.asp target=right><%=TextArray1(4)%></a></td>
              </tr>
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=about.asp target=right>"
				   response.Write(TextArray1(15))
				   response.Write "</a></td></tr>"
				end if
			  %>    
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=Discount.asp target=right>"
				   response.Write(TextArray1(6))
				   response.Write "</a></td></tr>"
				end if
			  %>    
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=Goods.asp target=right>"
				   response.Write(TextArray1(7))
				   response.Write "</a></td></tr>"
				end if
			  %>  
			  
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=ProName.asp target=right>"
				   response.Write(TextArray1(9))
				   response.Write "</a></td></tr>"
				end if
			  %> 
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=Advertisement.asp target=right>"
				   response.Write(TextArray1(10))
				   response.Write "</a></td></tr>"
				end if
			  %> 
			   <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=pd.asp target=right>"
				   response.Write(TextArray1(11))
				   response.Write "</a></td></tr>"
				end if
			  %> 
			   <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=sqk.asp target=right>"
				   response.Write(TextArray1(22))
				   response.Write "</a></td></tr>"
				end if
			  %> 
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=pdnews.asp target=right>"
				   response.Write(TextArray1(23))
				   response.Write "</a></td></tr>"
				end if
			  %> 
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=Titles.asp target=right>"
				   response.Write(TextArray1(24))
				   response.Write "</a></td></tr>"
				end if
			  %> 
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=frank.asp target=right>"
				   response.Write(TextArray1(25))
				   response.Write "</a></td></tr>"
				end if
			  %> 
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=Ad.asp target=right>"
				   response.Write(TextArray1(5))
				   response.Write "</a></td></tr>"
				end if
			  %>
			  <%if session("types")="超级管理员" then
				   response.Write "<tr><td height=20><a href=contact.asp target=right>"
				   response.Write(TextArray1(27))
				   response.Write "</a></td></tr>"
				end if
			  %>
            </table>
	  </div>

	</td>
  </tr>
</table>





<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
    <td style="display:" id='submenu5'>

	</td>
  </tr>
</table>

<!--<table cellpadding=0 cellspacing=0 width=158 align=center>
  <tr>
        <td height=25 class=menu_title onmouseover=this.className='menu_title2'; onmouseout=this.className='menu_title'; background="images/admin_left_6.gif" id=menuTitle1 onclick="showsubmenu(5)"> 
          <span>???t1üàí<span></td>
  </tr>
  <tr>
    <td style="display:" id='submenu5'>
<div class=sec_menu style="width:158">
            <table cellpadding=0 cellspacing=0 align=center width=135>
              <tr> 
                <td height=20><a href=index1.asp target=right>1üàí??3ì???t</a></td>
              </tr>
              <tr> 
                <td height=20><a href=aspcheck.asp target=right>ì?2a??3ì·t???÷</a></td>
              </tr>
            </table>
	  </div>
<div  style="width:158">
<table cellpadding=0 cellspacing=0 align=center width=135>
<tr><td height=20></td></tr>
</table>
	  </div>
	</td>
  </tr>
</table>-->
&nbsp; &nbsp; 

